home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
gfx
/
edit
/
Portrait.lha
/
Portrait
/
Install-Portrait
< prev
next >
Wrap
Text File
|
1999-01-10
|
5KB
|
244 lines
; $VER: Install-Portrait 1.5 (28.10.98)
; © 1998 Christopher January
(if (= @language "english")
(
(set @app-name "Portrait")
(set #disclaimer-msg
(cat "Please remember that Portrait is still very much"
"\nunder development and it is likely to contain a,"
"\nnumber of bugs and many unimplemented features. "
"\nPlease read AFD-COPYRIGHT before installing "
"\nPortrait. You may not use Portrait unless you "
"\nagree to the terms in the file. This version of "
"\nPortrait has been released for test purposes "
"\nonly. ")
)
(set #ask-rtg
(cat "Please specify if you intend to use Portrait with"
"\na graphics card or not. "
"\nGraphics card compatibility is minimal at the "
"\nmoment but will be improved in future versions. ")
)
(set #ask-rtg-help
(cat "Clicking Yes here will set the RTG tooltype in"
"\nthe Portrait icon ")
)
(set #read-docs-now
(cat "Do you wish to read the AmigaGuide"
"\ndocument now?")
)
(set #install-program "Installing Portrait program")
(set #install-mode "Installing PortraitMode program")
(set #install-projects "Installing example projects")
(set #install-projectmanager "Installing ProjectManager")
(set #install-prefs "Installing default preferences")
(set #install-icons "Installing toolbar icons")
(set #install-misc "Installing supplementary files")
(set #install-docs "Installing documentation")
(set #install-dest
(cat "Where do you wish to install Portrait?"
"\nA new drawer will be created")
)
(set #ask-datatype
(cat "Do you wish to have the work buffer"
"\ndatatype installed?")
)
(set #ask-datatype-help
(cat "Clicking YES will install the work.datatype"
"\nclass and WORK datatype descriptor")
)
(set #install-datatype "Installing datatype")
(set #bad-kick "Portrait requires Kickstart 3.0+")
(set #copy-tabs "Copying tabs.gadget to SYS:Classes/Gadgets")
(set #hi-msg
(cat "Welcome to the Portrait Installation"
"\n"
"\nPortrait by Christopher January"
"\n© 1998")
)
)
(abort "Install script can only be run in English")
)
(if (< (/ (getversion) 65536) 39)
(abort #bad-kick)
)
(complete 0)
(welcome #hi-msg)
(complete 7)
(message #disclaimer-msg)
(complete 14)
(set @default-dest
(askdir
(prompt #install-dest)
(help @askdir-help)
(default @default-dest)
)
)
(complete 21)
(set @default-dest (tackon @default-dest "Portrait"))
(copyfiles
(prompt #install-program)
(source "Portrait")
(infos)
(dest @default-dest)
(help @copyfiles-help)
)
(complete 28)
(if
(askbool
(prompt #ask-rtg)
(help #ask-rtg-help)
)
(tooltype
(dest (tackon @default-dest "Portrait"))
(settooltype "RTG" "YES")
)
)
(complete 35)
(copyfiles
(prompt #install-mode)
(source "PortraitMode")
(infos)
(dest @default-dest)
(help @copyfiles-help)
)
(complete 42)
(copyfiles
(prompt #install-projectmanager)
(source "ProjectManager")
(infos)
(dest @default-dest)
(help @copyfiles-help)
)
(complete 49)
(copyfiles
(prompt #install-misc)
(source "")
(choices "Projects.list")
(infos)
(confirm)
(dest @default-dest)
(help @copyfiles-help)
)
(complete 56)
(copyfiles
(prompt #install-icons)
(help @copyfiles-help)
(source "Icons")
(all)
(infos)
(dest (tackon @default-dest "Icons"))
(confirm)
)
(complete 63)
(copyfiles
(prompt #install-docs)
(source "Docs")
(help @copyfiles-help)
(all)
(infos)
(dest (tackon @default-dest "Docs"))
(confirm)
)
(complete 70)
(copyfiles
(prompt #install-projects)
(source "Projects")
(help @copyfiles-help)
(all)
(infos)
(dest (tackon @default-dest "Projects"))
(confirm)
)
(complete 77)
(copylib
(prompt #copy-tabs)
(source "Classes/Gadgets/tabs.gadget")
(dest "SYS:Classes/Gadgets")
(help @copylib-help)
(confirm)
)
(complete 84)
(if
(askbool
(prompt #ask-datatype)
(help #ask-datatype-help)
)
(
(copylib
(prompt #install-datatype)
(source "Datatype/work.datatype")
(dest "SYS:Classes/Datatypes")
(help @copylib-help)
)
(copyfiles
(prompt #install-datatype)
(source "Datatypes/WORK")
(dest "DEVS:Datatypes")
(infos)
)
)
)
(complete 90)
(if
(askbool
(help @askbool-help)
(prompt #read-docs-now)
)
(run "Multiview" (tackon @default-dest "Docs/Portrait.guide") (safe))
)
(complete 100)